10 REM HUE PALETTE FOR THE 64 - RICHARD PENN
20 CLR: POKE53280,0:POKE53281,0:PRINT"[147]"CHR$(142)CHR$(8)
30 PRINTTAB(16)"[151]ONE":PRINTTAB(16)"[152]MOMENT":PRINTTAB(16)"[155]PLEASE..."
40 GOSUB590:REM INSTALL ML ROUTINES
50 GOSUB730:REM REDEFINE DITHERING CHR
60 RESTORE
70 FORT=50000TO50000+255:POKET,0:NEXT:FORT=50256TO50256+255:POKET,0:NEXT
80 L=4:Q=50050+L*8:FORT=QTOQ+15*8STEP8:READX:FORZ=TTOT+7:POKEZ,X:NEXT:NEXT
90 PRINT"[147]";:FORT=1TO999:PRINT"[144] ";:NEXT:POKE2023,160:POKE56295,0
100 FORT=217TO242:POKET,PEEK(T)OR128:NEXT
110 SYS49152:GOSUB290:GOSUB480:POKE2,0:SYS2
120 REM PRINT SMALL GRID SUB
130 SYS679:G=1:GOSUB550:PRINT""TAB(13)"128 HUE PALETTE"
140 PRINT"";:FORT=1TOL-2:PRINT:NEXT
150 PRINTTAB(13)"[151] [152] [155]  [158] [150] [129]  [149] [156]  [154] [159] [153]  [151] "
160 PRINT"";:FORT=1TOL:PRINT:NEXT
170 PRINTTAB(11)"[151] [157][152] [157][155] [157] [157][158] [157][150] [157][129] [157] [157][149] [157][156] [157] [157][154] [157][159] [157][153] [157] [157]"
180 PRINT"";:FORT=1TOL:PRINT:NEXT:FORT=1TO16
190 PRINTTAB(13)"[151]@[152]@[155]@@[158]@[150]@[129]@@[149]@[156]@@[154]@[159]@[153]@@[151]@":NEXT
200 GOSUB430
210 RETURN
220 REM PRINT LARGE GRID
230 SYS679:G=2:GOSUB550:PRINT""TAB(13)"128 HUE PALETTE"
240 PRINT"";:FORT=1TOL:PRINT:NEXT:FORT=1TO16
250 PRINTTAB(4)"[151]@@[152]@@[155]@@@@[158]@@[150]@@[129]@@@@[149]@@[156]@@@@[154]@@[159]@@[153]@@@@[151]@@":NEXT
260 GOSUB430
270 RETURN
280 REM PRINT COLOR SHADING SCALES SUB
290 GOSUB230:G=3:PRINT""TAB(10)"COLOR SHADING SCALES"
300 PRINT""
310 FORT=1TO9:PRINT"[144]                                     ":NEXT
320 PRINT"                                       "
330 PRINT"":FORT=1TO4:PRINTTAB(12)"[144]  ":NEXT
340 PRINT"":FORT=1TO4:PRINTTAB(22)"[144]  ":NEXT
350 PRINT"":FORT=1TO4:PRINTTAB(34)"[144]  ":NEXT
360 PRINT"":FORT=1TO2:PRINTTAB(22)"[144]      ":NEXT
370 PRINT""TAB(6)"[144]GREY"TAB(15)"BROWN"TAB(26)"BLUE-"
380 PRINTTAB(26)"GREEN"
390 PRINT""TAB(7)"GREEN SET 1"TAB(29)"[145]GREEN"
400 PRINTTAB(29)"SET 2"
410 RETURN
420 REM PRINT COMMAND WINDOW SUB
430 PRINT:PRINTTAB(11)" F1 [146] LARGE PALETTE"
440 PRINTTAB(11)"[155] F3 [146] SMALL PALETTE"
450 PRINTTAB(11)"[152] F5 [146] SHADING SCALES"
460 PRINTTAB(11)"[151] F7 [146] EXIT";:RETURN
470 REM MENU SUB
480 SYS695:POKE198,0:WAIT198,1:GETA$
490 IFA$="[134]"ANDG<>1THENGOSUB130
500 IFA$="[133]"ANDG<>2THENGOSUB230
510 IFA$="[135]"ANDG<>3THENGOSUB290
520 IFA$="[136]"THENPOKE198,0:RETURN
530 GOTO480
540 REM CLEAR SCREEN SUB
550 PRINT"";:FORT=1TO21:PRINT"[144]                                       ":NEXT
560 RETURN
570 DATA 11,12,15,1,7,10,8,2,9,4,6,14,3,13,5,0
580 REM BACKGROUND RASTER INTERRUPT AND SCREEN TOGGLE ML ROUTINES
590 FORT=1TO16:READD:NEXT
600 FORU=49152TO49226:READQ:POKEU,Q:CK=CK+Q:NEXT
610 IF CK<>8767 THENPRINT"ERROR IN DATA LINES 620-660":END
620 DATA 120,169,127,141,13,220,169,1,141,26,208,169,50,141,18,208,169,27
630 DATA 141,17,208,169,33,141,20,3,169,192,141,21,3,88,96,169,1,141
640 DATA 25,208,174,18,208,224,250,240,22,189,80,195,141,33,208,141,32,208
650 DATA 138,24,105,8,141,18,208,104,168,104,170,104,64,169,50,141,18,208
660 DATA 76,49,234
670 CK=0:FORU=679TO710:READQ:POKEU,Q:CK=CK+Q:NEXT
680 IF CK<>4206 THENPRINT"ERROR IN DATA LINES 690-700":END
690 DATA 173,17,208,16,251,169,91,141,17,208,169,216,141,22,208,96,173,17
700 DATA 208,16,251,169,27,141,17,208,169,200,141,22,208,96
710 RETURN
720 REM REDEFINE DITHERING CHARACTER
730 POKE56333,127:POKE1,51
740 POKE781,9:POKE782,0:POKE90,0:POKE91,216:POKE88,0:POKE89,56:SYS41964
750 POKE1,55:POKE56333,129
760 POKE12288,170:POKE12289,85:POKE12290,170:POKE12291,85:POKE12292,170
770 POKE12293,85:POKE12294,170:POKE12295,85:POKE53272,29:RETURN